home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / stdwin / Ports / mac / about.c next >
Text File  |  1995-12-21  |  2KB  |  72 lines
  1. /* MAC STDWIN -- "ABOUT STDWIN" MESSAGE. */
  2.  
  3. #include "macwin.h"
  4. #include "patchlevel.h"
  5. #include <TextEdit.h>
  6.  
  7. /* Default About... message; applications may assign to this.
  8.    You may also assign to about_item in "menu.c", *before*
  9.    calling winit() or winitargs().
  10.    Also see your THINK C licence.
  11. */
  12. #ifdef THINK_C
  13. #define COMPILER " [THINK C]"
  14. #endif
  15.  
  16. #ifdef __MWERKS__
  17. #ifdef __powerc
  18. #define COMPILER " [CW PPC]"
  19. #else
  20. #define COMPILER " [CW 68K]"
  21. #endif
  22. #endif
  23.  
  24. #ifndef COMPILER
  25. #define COMPILER
  26. #endif
  27.  
  28. char *about_message=
  29.     "STDWIN version " PATCHLEVEL COMPILER "\r\r\
  30. Copyright \251 1988-1995\r\
  31. Stichting Mathematisch Centrum, Amsterdam\r\r\
  32. Author: Guido van Rossum <guido@cwi.nl>\r\
  33. FTP: host ftp.cwi.nl, directory pub/stdwin\r\r\
  34. Hints:\r\
  35. Option-click in windows: drag-scroll\r\
  36. Option-click in title: send window behind";
  37.     /* \251 is the (c) Copyright symbol.
  38.        I don't want non-ASCII characters in my source. */
  39.  
  40.  
  41. /* "About ..." procedure.
  42.    This is self-contained -- if you have a better idea, change it.
  43. */
  44.  
  45. void
  46. do_about()
  47. {
  48.     Rect r;
  49.     WindowPtr w;
  50.     EventRecord e;
  51.     
  52.     SetRect(&r, 0, 0, 340, 200); /* XXX Shouldn't be hardcoded */
  53.     OffsetRect(&r, (screen->portRect.right - r.right)/2, 40);
  54.     
  55.     w = NewWindow(
  56.         (Ptr) NULL,    /* No storage */
  57.         &r,        /* Bounds rect */
  58.         (ConstStr255Param)"", /* No title */
  59.         true,         /* Visible */
  60.         dBoxProc,    /* Standard dialog box border */
  61.         (WindowPtr) -1,    /* In front position */
  62.         false,        /* No go-away box */
  63.         0L);        /* RefCon */
  64.     SetPort(w);
  65.     r = w->portRect;
  66.     InsetRect(&r, 10, 10);
  67.     TextBox(about_message, strlen(about_message), &r, teJustCenter);
  68.     while (!GetNextEvent(mDownMask|keyDownMask, &e))
  69.         ;
  70.     DisposeWindow(w);
  71. }
  72.